home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
remote
/
bat2fd10.zip
/
RA2.BAT
< prev
next >
Wrap
DOS Batch File
|
1990-11-03
|
2KB
|
89 lines
Rem
Rem Main batchfile for line 2
Rem
@Echo Off
\Dv\Dvansi
If Exist C:\Ra\Line2\Down Del C:\Ra\Line2\Down
Cls
Rem ----------------------------------------
Rem - Set environment variables for Node 2 -
Rem ----------------------------------------
Set DSZPORT=2
Set TCNODE=2
Set FD=C:\FD\FD2
Set FDOPT=NOMDM
Rem - Main -----------------------------------------------------------------
:Start
Rem -------------------------------------------
Rem - Before starting FD we can check whether -
Rem - Node 1 wants to do something -
Rem -------------------------------------------
If Exist C:\Ra\Line2\GoDown Goto WaitFor1
If Exist C:\Fd\Fd2\FdExit.160 Del C:\Fd\Fd2\FdExit.160
If Exist C:\Fd\Fd2\FdExit.170 Goto Do_Mail
C:
Cd\Ra\Line2
Bnuhlp /C
Ra -N2 -C2 -E250 -M*H*MC:\FD\FD.Exe
If ErrorLevel 250 Goto AfterRA
If ErrorLevel 170 Goto Do_Mail
If ErrorLevel 160 Goto WaitFor1
If ErrorLevel 100 Goto Mail_In
If ErrorLevel 6 Goto End
If ErrorLevel 3 Goto BBS_Mail
Goto End
Rem ------- Exit after human caller; user entered mail----------------------
:BBS_Mail
Rem ------------------------------------------
Rem - Signal that mail needs to be processed -
Rem ------------------------------------------
Rem > C:\Ra\Line2\Mail!
Rem - X250- Exit after human caller-----------------------------------------
:AfterRA
Cd\Ra\Line2
If Exist C:\Ra\Line2\Mail! Goto Do_Mail
Goto Start
Rem - X170- Mail should be processed----------------------------------------
:Do_Mail
If Exist C:\Fd\Fd2\FdExit.170 Del C:\Fd\Fd2\FdExit.170
Rem -----------------------------------
Rem - Signal that Node 2 is available -
Rem -----------------------------------
Rem > C:\Fd\FdExit.100
Goto Start
Rem - X160- Stop windowactivity---------------------------------------------
:WaitFor1
Rem ------------------------------------------------------------
Rem - Both nodes are now available and Node 1 tells us to wait -
Rem ------------------------------------------------------------
Rem > C:\Ra\Line2\Down
If Exist C:\Ra\Line2\GoDown Del C:\Ra\Line2\GoDown
Echo Node 2 is Down
:Waiting
DvComand Wait 300
If Exist C:\Ra\Line2\Down Goto Waiting
Goto Start
Rem - X100- Mail received - Let Node 1 process it---------------------------
:Mail_In
Rem > C:\Fd\FdExit.100
Rem > C:\Ra\Line2\Mail!
Goto Start
Rem - Exit batchfile--------------------------------------------------------
:End